home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 1 / PC Actual CD 01.iso / share / dos / graficos / plydat14.arj / NOISE4.PI < prev    next >
Encoding:
Text File  |  1992-03-02  |  1.9 KB  |  93 lines
  1. # Generic Polyray input File
  2. # Polyray input file: Alexander Enzmann
  3.  
  4. # Set up the camera
  5. viewpoint {
  6.    from <0, 0, -8>
  7.    at <0,0,0>
  8.    up <0,1,0>
  9.    angle 45
  10.    resolution 320, 160
  11.    aspect 2
  12.    }
  13.  
  14. background <0, 0, 0>
  15. light <-15, 3, -20>
  16. light < 15, 3, -20>
  17.  
  18. # Definitions of noise texture components
  19. define position_plain 0
  20. define position_objectx 1
  21. define position_worldx 2
  22. define position_cylindrical 3
  23. define position_fmodx 4
  24. define position_fmodxy 5
  25. define position_fmodxyz 6
  26.  
  27. define lookup_plain 0
  28. define lookup_sawtooth 1
  29. define lookup_cos 2
  30. define lookup_sin 3
  31.  
  32. define bump_normal 1
  33. define ripple_normal 2
  34.  
  35. # Simple color map texture
  36. define noise_texture0
  37. texture {
  38.    noise surface {
  39.       color white
  40.       position_fn position_plain
  41.       lookup_fn lookup_cos
  42.       normal bump_normal
  43.       turbulence 2
  44.       frequency 3
  45.       bump_scale 3
  46.       octaves 2
  47.       ambient 0.1
  48.       diffuse 0.5
  49.       specular 0.6
  50.       microfacet Reitz 10
  51.       color_map(
  52.          [0,   0.2, red,     orange]
  53.          [0.2, 0.3, orange,  blue]
  54.          [0.3, 0.5, blue,    skyblue]
  55.          [0.5, 0.7, skyblue, orange]
  56.          [0.7, 0.9, orange,  magenta]
  57.          [0.9, 1.0, magenta, red],
  58.          <1, 1, 1>)
  59.       }
  60.    scale <0.5, 0.5, 0.5>
  61.    }
  62.  
  63. define ripple_marble_texture
  64. texture {
  65.    noise surface {
  66.       color white
  67.       position_fn position_objectx
  68.       lookup_fn lookup_sawtooth
  69.       octaves 4
  70.       turbulence 3
  71.       normal ripple_normal
  72.       frequency 10
  73.       bump_scale 5
  74.       ambient 0.1
  75.       diffuse 0.5
  76.       specular 0.6
  77.       microfacet Reitz 10
  78.       color_map(
  79.          [0.0, 0.8, <1, 1, 1>, <0.6, 0.6, 0.6>]
  80.          [0.8, 1.0, <0.6, 0.6, 0.6>, <0.1, 0.1, 0.1>])
  81.       }
  82.    translate <-5, 0, 0>
  83.    }
  84.  
  85. object { sphere <0, 0, 0>, 2
  86.    noise_texture0
  87.    translate <-3, 0, 0>
  88.    }
  89. object { sphere <0, 0, 0>, 2
  90.    ripple_marble_texture
  91.    translate <3, 0, 0>
  92.    }
  93.